home *** CD-ROM | disk | FTP | other *** search
/ The Cartoon Guide to Physics / The Cartoon Guide to Physics.iso / pc / physdata / setup.dir / 00030.ls < prev    next >
Encoding:
Text File  |  1995-09-10  |  1.1 KB  |  41 lines
  1. on closeSetup
  2.   global ShowAnimation, SelectedStory, Stories, HDPATH, SetupSprite
  3.   tell the stage
  4.     if the machineType = 256 then
  5.       moveToBack(window (HDPATH & "ATS\" & "SETUP.DIR"))
  6.     else
  7.       moveToBack(window "SETUP.DIR")
  8.     end if
  9.     updateStage()
  10.     if the movieName = "HALLFAME.DIR" then
  11.       if the frame > 5 then
  12.         set the castNum of sprite SetupSprite to the number of cast "setupDark"
  13.       else
  14.         set the castNum of sprite SetupSprite to the number of cast "setup"
  15.       end if
  16.     else
  17.       set the castNum of sprite SetupSprite to the number of cast "setup"
  18.     end if
  19.     puppetSprite(SetupSprite, 0)
  20.     updateStage()
  21.     if the movieName = "MAINSTR.DIR" then
  22.       if ShowAnimation then
  23.         puppetSound(0)
  24.         go("STORY" & SelectedStory)
  25.       else
  26.         go(1)
  27.       end if
  28.     else
  29.       if Stories then
  30.         set the visible of sprite 2 to 1
  31.       end if
  32.       go(the frame)
  33.     end if
  34.     if the machineType = 256 then
  35.       forget(window (HDPATH & "ATS\" & "SETUP.DIR"))
  36.     else
  37.       forget(window "SETUP.DIR")
  38.     end if
  39.   end tell
  40. end
  41.